Sub muestra_choose()
    Dim a As Integer
    a = 1
    Debug.Print "a = " & a & " -> " & _
    Choose(a, "uno", "dos", "tres")
End Sub
